home *** CD-ROM | disk | FTP | other *** search
/ Skandinavian News 7 / Skandinavian News - Issue 7 (1989-01)(Accession)[h Amiga Hackers United].adf / page39 < prev    next >
Text File  |  1987-06-04  |  2KB  |  56 lines
  1. #move 0,0
  2. Let's put it this way : 
  3.     a$="THE DISCO-WANKERS PRESENT
  4. SOMETHING."
  5.   OK,  but where are the Greetings ? If 
  6. you have loots and looots of  Greetings
  7. (Not  always  to  the  same person,that 
  8. is...) then you seem to be a Cool Dude.
  9. Now  you  can  use  two possibilities :  
  10. Beeing a  loser nobody will mind if you
  11. just  think  of some names and put them 
  12. in the Greetings list.  OR you can just
  13. say ' GREETINGS  TO  ALL OUR CONTACTS'.
  14. This is good, because then nobody knows
  15. that the only  contact you ever had was
  16. when you put your shit fingers into the
  17. electricity plug...So let's use this :
  18.   a$="THE DISCO WANKERS PRESENT
  19. SOMETHING. GREETINGS TO ALL CONTACTS -"
  20. Cool, eh ? Let's  remember  the  lenght 
  21. of this. 
  22. a=len(a$)
  23. But wait - this would take TOO long. So
  24. here is the Complete Sourcecode :
  25.  
  26. REM ***********************************
  27. REM *                                 *
  28. REM *T H E   D I S C O - W A N K E R S*
  29. #move 325,0
  30. REM *                                 *
  31. REM *         present in 1989 :       *
  32. REM *                                 *
  33. REM *    THE INCREDIBLE MEGADEMO      *
  34. REM *    BY THE 'PERFECT FREAK!'      *
  35. REM *                                 *
  36. REM *     Coded in just 3 hours...    *
  37. REM *                                 *
  38. REM ***********************************
  39.  
  40. a$="THE DISCOWANKERS PRESENT SOMETHING.
  41. GREETINGS TO ALL CONTACTS - "
  42. a=len(a$):col=0:REM SYSTEM DEFINITIONS
  43. SCREEN 2,320,200,5,1:REM **THIS ONE
  44. OPENS THE SCREEN ***
  45. WINDOW 2,"DISCO WANKERS IN 1989!!!!!!"
  46. ,,16,2: REM THIS ONE OPENS A WINDOW
  47. LOOP:REM LABEL...
  48. K=MOUSE(0):REM *** HERE YOU GET THE
  49. MOUSE STATUS
  50. LOCATE 5,5:REM *** HERE IS OUR SCROLLY
  51. LOCATED
  52. PRINT A$:REM *** AND PRINTED OUT
  53. PALETTE 0,col,1-col,col:REM NEW COLORS
  54. col=rnd(1):REM CHANGE DEFAULT COLORS
  55.                                 ---> 
  56.